home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / HyperCard Demos / HyperMovies / CL⁄1 / CL_1 / card_8995.txt < prev    next >
Text File  |  1989-10-27  |  4KB  |  174 lines
  1. -- card: 8995 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 3266
  5. -- name: Map of Regions
  6. ----- HyperTalk script -----
  7. on goRegion regionNum
  8.   lock screen
  9.   go to card "Region" && regionNum && "Chart"
  10.  
  11.   if the result is "no such card" then
  12.     answer "Data for Region" && regionNum && "are not available."
  13.     exit goRegion
  14.   end if
  15.  
  16.   --clear the card graphic
  17.   if not inDebug() then
  18.     set cursor to watch
  19.     ClearOutCard item 4 of rect of background button "Regional Chart", item 4 of the rect of field "Region Data"
  20.   end if
  21.  
  22.   hideStatus
  23.   unlock screen with visual iris open
  24.   RetrieveRegionData
  25. end goRegion
  26.  
  27. on closeCard
  28.   choose browse tool
  29.   lock screen
  30.   hide field "status"
  31.   hide field "status backdrop"
  32.   unlock screen
  33.   pass closeCard
  34. end closeCard
  35.  
  36. --on goRegion regionNum
  37. visual iris open
  38. go to card "Region" && regionNum && "Chart"
  39.  
  40. if the result is "no such card" then
  41.   answer "Data for Region" && regionNum && "are not available."
  42.   exit goRegion
  43. end if
  44.  
  45. set cursor to watch
  46. RetrieveRegionData
  47. end goRegion
  48.  
  49. --on closeCard
  50. set lockScreen to true
  51. hide field "status"
  52. hide field "status backdrop"
  53. choose browse tool
  54. set lockScreen to false
  55. pass closeCard
  56. end closeCard
  57.  
  58.  
  59. -- part 2 (button)
  60. -- low flags: 00
  61. -- high flags: 0000
  62. -- rect: left=65 top=42 right=202 bottom=172
  63. -- title width / last selected line: 0
  64. -- icon id / first selected line: 0 / 0
  65. -- text alignment: 1
  66. -- font id: 0
  67. -- text size: 12
  68. -- style flags: 0
  69. -- line height: 16
  70. -- part name: 302
  71. ----- HyperTalk script -----
  72. on mouseUp
  73.   goRegion (short name of me)
  74. end mouseUp
  75.  
  76.  
  77.  
  78. -- part 7 (button)
  79. -- low flags: 00
  80. -- high flags: 0000
  81. -- rect: left=386 top=37 right=131 bottom=465
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 1
  85. -- font id: 0
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: 105
  90. ----- HyperTalk script -----
  91. on mouseUp
  92.   goRegion (short name of me)
  93. end mouseUp
  94.  
  95.  
  96.  
  97. -- part 6 (button)
  98. -- low flags: 00
  99. -- high flags: 0000
  100. -- rect: left=177 top=54 right=161 bottom=364
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 1
  104. -- font id: 0
  105. -- text size: 12
  106. -- style flags: 0
  107. -- line height: 16
  108. -- part name: 210
  109. ----- HyperTalk script -----
  110. on mouseUp
  111.   goRegion (short name of me)
  112. end mouseUp
  113.  
  114.  
  115.  
  116. -- part 5 (button)
  117. -- low flags: 00
  118. -- high flags: 0000
  119. -- rect: left=328 top=138 right=235 bottom=416
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 1
  123. -- font id: 0
  124. -- text size: 12
  125. -- style flags: 0
  126. -- line height: 16
  127. -- part name: 110
  128. ----- HyperTalk script -----
  129. on mouseUp
  130.   goRegion (short name of me)
  131. end mouseUp
  132.  
  133.  
  134.  
  135. -- part 4 (button)
  136. -- low flags: 00
  137. -- high flags: 0000
  138. -- rect: left=165 top=171 right=258 bottom=333
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 0 / 0
  141. -- text alignment: 1
  142. -- font id: 0
  143. -- text size: 12
  144. -- style flags: 0
  145. -- line height: 16
  146. -- part name: 220
  147. ----- HyperTalk script -----
  148. on mouseUp
  149.   goRegion (short name of me)
  150. end mouseUp
  151.  
  152.  
  153.  
  154. -- part 11 (field)
  155. -- low flags: 01
  156. -- high flags: 0000
  157. -- rect: left=0 top=319 right=337 bottom=191
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 1
  161. -- font id: 3
  162. -- text size: 10
  163. -- style flags: 256
  164. -- line height: 13
  165. -- part name: Time & Date
  166.  
  167.  
  168. -- part contents for card part 11
  169. ----- text -----
  170. Data as of: 6/1/89 1:14 PM
  171.  
  172. -- part contents for background part 10
  173. ----- text -----
  174. Disconnected